home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #002 (19xx)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #002 (19xx)(Amiga User Group Deutschland e.V.).adf / HP-10C / functions.df < prev    next >
Text File  |  1988-02-24  |  2KB  |  69 lines
  1. DEFINITION MODULE CalcFunctions;
  2.  
  3. (*
  4.  
  5.    This module creates the functions for the calculator.
  6.     This is the lowest level module.
  7.  
  8.     Four functions need the gadget information and are in the
  9.      Module CalcGadgets. These functions are:
  10.           STO
  11.           RCL
  12.           DEG    (toggles between degrees and radians)
  13.           GOLD   (selects alternate gadgets in display)
  14.  
  15.  
  16.    Created: Duncan Prindle,  September 10, 1986
  17.  
  18.    Modified: Perhaps
  19.  
  20. *)
  21.  
  22.  
  23. TYPE  ErrorType = (NoError, DivideByZero, NegSqrt, NegLog, NegLn,
  24.                    XTooBigForSIN, AsinTooBig, XTooBigForCOS, AcosTooBig,
  25.                    XTooBigForTAN, OverFlow, piOver2, OtherError);
  26.  
  27. VAR
  28.   X         : REAL;
  29.   SAME      : BOOLEAN;
  30.   DECI      : BOOLEAN;
  31.   NDeci     : INTEGER;
  32.   INDEG     : BOOLEAN;
  33.   stored    : ARRAY[0..9] OF REAL;
  34.  
  35.  PROCEDURE BLANK (): ErrorType;
  36.  PROCEDURE CLRStack;
  37.  PROCEDURE StackUp;
  38.  PROCEDURE StackDown;
  39.  PROCEDURE Add (): ErrorType;
  40.  PROCEDURE Subtract (): ErrorType;
  41.  PROCEDURE Multiply (): ErrorType;
  42.  PROCEDURE Divide (): ErrorType;
  43.  PROCEDURE POINT (): ErrorType;
  44.  PROCEDURE PI (): ErrorType;
  45.  PROCEDURE CLX (): ErrorType;
  46.  PROCEDURE RDN (): ErrorType;
  47.  PROCEDURE ENTER (): ErrorType;
  48.  PROCEDURE LASTX (): ErrorType;
  49.  PROCEDURE SIN (): ErrorType;
  50.  PROCEDURE ASIN (): ErrorType;
  51.  PROCEDURE COS (): ErrorType;
  52.  PROCEDURE ACOS (): ErrorType;
  53.  PROCEDURE TAN (): ErrorType;
  54.  PROCEDURE ATAN (): ErrorType;
  55.  PROCEDURE LN (): ErrorType;
  56.  PROCEDURE EXP (): ErrorType;
  57.  PROCEDURE TENtotheX (): ErrorType;
  58.  PROCEDURE LOG (): ErrorType;
  59.  PROCEDURE YtotheX (): ErrorType;
  60.  PROCEDURE OneOverX (): ErrorType;
  61.  PROCEDURE XSquared (): ErrorType;
  62.  PROCEDURE SQRT (): ErrorType;
  63.  PROCEDURE XtoY (): ErrorType;
  64.  PROCEDURE CHS (): ErrorType;
  65.  PROCEDURE CLRST (): ErrorType;
  66.  PROCEDURE EXTENDX( Digit: CARDINAL );
  67.  
  68. END CalcFunctions.
  69.